inherited formCadVersaoProcedimento: TformCadVersaoProcedimento
  Caption = 'Vers'#227'o de Procedimentos'
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    ActivePage = tbsficha
    inherited tbsGrid: TTabSheet
      inherited dbgConsulta: TDBGrid
        Top = 55
        Height = 253
        DataSource = dsCadastro
        Columns = <
          item
            Expanded = False
            FieldName = 'Ver_Cd'
            Title.Caption = 'C'#243'digo'
            Width = 83
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Ver_Ds'
            Title.Caption = 'Descri'#231#227'o'
            Width = 397
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Height = 55
        ExplicitHeight = 55
        object OdontoLabel1: TOdontoLabel
          Left = 16
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object OdontoLabel2: TOdontoLabel
          Left = 104
          Top = 8
          Width = 46
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object oedCodigo: TOdontoEdit
          Left = 16
          Top = 24
          Width = 77
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedDescricao: TOdontoEdit
          Left = 104
          Top = 24
          Width = 385
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      object OdontoLabel3: TOdontoLabel
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object OdontoLabel4: TOdontoLabel
        Left = 112
        Top = 16
        Width = 46
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      object dbeCodigo: TDBOdontoEdit
        Left = 16
        Top = 32
        Width = 77
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Ver_Cd'
        DataSource = dsCadastro
        TabOrder = 0
        CorFoco = 15461355
      end
      object dbeDescricao: TDBOdontoEdit
        Left = 113
        Top = 32
        Width = 296
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Ver_Ds'
        DataSource = dsCadastro
        TabOrder = 1
        CorFoco = 15461355
      end
    end
  end
  object qCadastro: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Ver_Cd, Ver_Ds'
      'FROM VersaoProcedimento')
    Left = 40
    Top = 288
    object qCadastroVer_Cd: TStringField
      FieldName = 'Ver_Cd'
      FixedChar = True
      Size = 7
    end
    object qCadastroVer_Ds: TStringField
      FieldName = 'Ver_Ds'
      Size = 30
    end
  end
  object dsCadastro: TDataSource
    DataSet = qCadastro
    Left = 40
    Top = 256
  end
end
